home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / tests / converters.test < prev    next >
Encoding:
Text File  |  1995-06-29  |  2.6 KB  |  133 lines
  1.  
  2. if {[string compare test [info procs test]] == 1} then \
  3.   {source defs}
  4.  
  5. # set VERBOSE 1
  6.  
  7. xtAppInitialize -class Arrow
  8. . setValues -allowShellResize true
  9.  
  10. ###################################
  11. # setup PushButton for some tests #
  12. ###################################
  13.  
  14. xmPushButton .btn managed \
  15.   -labelString hello \
  16.   -width 100
  17.  
  18. . realizeWidget
  19.  
  20. ####################
  21. # XmString to String
  22. ####################
  23.  
  24. test converters-1.1 {convert XmString to String} {
  25.     .btn getValues -labelString l
  26.     set l
  27. } {hello}
  28.  
  29. ###################
  30. # Boolean to String
  31. ###################
  32.  
  33. test converters-2.1 {convert Boolean to String} {
  34.     .btn setValues -fillOnArm true
  35.     .btn getValues -fillOnArm f
  36.     set f
  37. } {true}
  38.  
  39. test converters-2.2 {convert Boolean to String} {
  40.     .btn setValues -fillOnArm false
  41.     .btn getValues -fillOnArm f
  42.     set f
  43. } {false}
  44.  
  45. #####################
  46. # Dimension to String
  47. #####################
  48.  
  49. test converters-3.1 {convert Dimension to String} {
  50.     .btn getValues -width w
  51.     set w
  52. } {100}
  53.  
  54. .btn destroyWidget
  55.  
  56. #############################
  57. # setup List for some tests #
  58. #############################
  59.  
  60. xmList .list managed \
  61.     -items "a b c {d e f}" \
  62.     -itemCount 4
  63.  
  64. #########################
  65. # XmStringTable to String
  66. #########################
  67.  
  68. test converters-4.1 {convert XmStringTable to String} {
  69.     .list getValues -items i
  70.     set i
  71. } {a b c {d e f}}
  72.  
  73. ###############
  74. # Int to String
  75. ###############
  76.  
  77. test converters-5.1 {convert int to String} {
  78.     .list getValues -itemCount n
  79.     set n
  80. } {4}
  81.  
  82. .list destroyWidget
  83.  
  84. #############################
  85. # setup form for some tests #
  86. #############################
  87.  
  88. xmForm .convform managed
  89. xmLabel .convform.l1 managed
  90. xmLabel .convform.l2 managed \
  91.   -topAttachment attach_widget \
  92.   -topWidget .convform.l1
  93.  
  94. ##################
  95. # widget to String
  96. ##################
  97.  
  98. test converters-6.1 {convert widget to string} {
  99.     .convform.l2 getValues -topWidget t
  100.     set t
  101. } {.convform.l1}
  102.  
  103. ####################
  104. # String to XmString
  105. ####################
  106.  
  107. test converters-6.2 {convert string to XmString} {
  108.     .convform.l1 setValues \
  109.     -labelString "hello"
  110.     .convform.l1 getValues \
  111.     -labelString l
  112.     set l
  113. } {hello}
  114.  
  115. .convform.l1 destroyWidget
  116. .convform.l2 destroyWidget
  117. .convform destroyWidget
  118.  
  119. test converters-7.1 {convert string to WidgetClass} {
  120.     xmRowColumn .row \
  121.     -isHomogeneous true \
  122.      -entryClass XmPushButton
  123.     xmPushButton .row.btn
  124.     puts stdout "There should be a warning from Xt: \" Attempt to add wrong type child to a homogeneous RowColumn widget\""
  125.     xmLabel .row.label
  126.     puts stdout "End of Xt warning"
  127. } {}
  128.  
  129. .row destroyWidget
  130.  
  131. # we don't want to go into interactivity:
  132. # . mainLoop
  133.